From: Tino Calancha <tino.calancha@gmail.com>
Date: Mon, 23 May 2022 12:51:08 +0000 (+0200)
Subject: zap-to-char: Fix interactive specification
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~2349^2~479
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6ac6919f74c2de91b2eb03de3aab326dcd3c5273;p=emacs.git

zap-to-char: Fix interactive specification

* lisp/simple.el (zap-to-char): Include t in the list.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 6906675f68a..fb1bf3fa742 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6352,8 +6352,8 @@ If called interactively, do a case sensitive search if CHAR
 is an upper-case character."
   (interactive (list (prefix-numeric-value current-prefix-arg)
 		     (read-char-from-minibuffer "Zap to char: "
-						nil 'read-char-history))
-               t)
+						nil 'read-char-history)
+               t))
   ;; Avoid "obsolete" warnings for translation-table-for-input.
   (with-no-warnings
     (if (char-table-p translation-table-for-input)